home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #13 / Skiva nr 13-1998 (Svart).iso / nksdemo.exe / skepp.dxr / 00096.ls < prev    next >
Encoding:
Text File  |  1998-10-02  |  654 b   |  42 lines
  1. on exitFrame
  2.   global tid, skotTid, skottILuften, shipHit, kanonVinkel
  3.   if tid > 220 then
  4.     timglas()
  5.     set tid to 0
  6.   else
  7.     set tid to tid + 1
  8.   end if
  9.   shipIntoWater()
  10.   shipUpFromWater()
  11.   moveShip()
  12.   if skottILuften = 1 then
  13.     set skotTid to skotTid + 1
  14.     if skotTid > 3 then
  15.       set the locH of sprite 23 to 1000
  16.     end if
  17.     case kanonVinkel of
  18.       2:
  19.         hit10()
  20.       3:
  21.         bom9()
  22.       4:
  23.         bom8()
  24.       5:
  25.         hit7()
  26.       6:
  27.         bom6()
  28.       7:
  29.         hit5()
  30.       8:
  31.         bom4()
  32.       9:
  33.         hit3()
  34.       10:
  35.         bom2()
  36.       11:
  37.         bom1()
  38.     end case
  39.   end if
  40.   go(the frame)
  41. end
  42.